home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP617.CMD < prev    next >
Encoding:
Text File  |  1987-07-09  |  2.6 KB  |  118 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 617 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message " 1 --> Alpha Software (229-2915)"
  33.   Message " 2 --> BCSNet (332-5584)"
  34.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  35.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  36.   Locate 22,0
  37.   Message "Your Choice -->"
  38.   Goto Retype1
  39. ;
  40. Retype1:
  41.   Locate 22,15
  42.   Get S3
  43.   Switch S3
  44.       Case "E"
  45.          EndSwitch
  46.          Execute "Make.cmd"
  47.       EndCase
  48.       Case "R"
  49.          EndSwitch
  50.          Goto Activate
  51.       EndCase
  52.       Case "S"
  53.          EndSwitch
  54.          Goto Switch
  55.       EndCase
  56.       Case "M"
  57.          Clear
  58.          Message "Manual dial for area "
  59.          Locate 0,21
  60.          Message S2
  61.          Message "What number do you wish to dial --> "
  62.          Locate 1,36
  63.          Get S6
  64.          Assign S5 "Manual dialing."
  65.          Execute "Dial"
  66.       EndCase
  67.       Case "D"
  68.          Execute "Discnect"
  69.       EndCase
  70.       Case "1"
  71.          Assign S5 "Dialing Alpha Software at 229-2915."
  72.          Assign S6 "2292915"
  73.          Execute "Dial"
  74.       EndCase
  75.       Case "2"
  76.          Assign S5 "Dialing BCSNet at 332-5584."
  77.          Assign S6 "3325584"
  78.          Execute "Dial"
  79.       EndCase
  80.       Default
  81.          Message " "
  82.          Message "Invalid choice, please retype"
  83.          Locate 22,15
  84.          Message "          "
  85.          Goto Retype1
  86.       EndCase
  87.   EndSwitch
  88. ;
  89. Switch:
  90.   Find S7 "R"
  91.   IF Found
  92.      Tran "I!"
  93.      Pause 2
  94.      Tran "ATZ!"
  95.      Assign S7 "H"
  96.      Rflush
  97.   ELSE
  98.      Tran "ATZ I!"
  99.      Pause 2
  100.      Tran "!"
  101.      Assign S7 "R"
  102.      Rflush
  103.   ENDIF
  104.   Pause 3
  105.   Rflush
  106.   Goto Page1
  107. ;
  108. Activate:
  109.   Find S8 "A"
  110.   IF Found
  111.      Assign S8 "I"
  112.   ELSE
  113.      Assign S8 "A"
  114.   ENDIF
  115.   Goto Page1
  116. ;
  117. Exit
  118.